home *** CD-ROM | disk | FTP | other *** search
/ PC User 2003 July / Disc 1 / PCU0703CD1.iso / software / online / files / imacros.exe / DATASOURCE-2-WEB.VBS < prev    next >
Encoding:
Text File  |  2002-07-03  |  619 b   |  27 lines
  1. Msgbox ("This example scripts how to submit data to a website, for example to fill an online database")
  2.  
  3. set iim1= CreateObject ("iimwsh.iim")
  4.  
  5. iret = iim1.iimInit
  6. iret = iim1.iimDisplay("Start Submission")
  7.  
  8. For num = 1 To 3
  9.    str = cstr(num)  'Convert integer to string
  10.  
  11.    iret = iim1.iimDisplay("Dataset No: " + str)
  12.  
  13.    sDatasource = "wsh-datasource-" + str + ".txt"
  14.    iret = iim1.iimSet("-datasource", sDatasource)
  15.  
  16.    iret = iim1.iimPlay("wsh-datasource")
  17.    If iret < 0 Then
  18.       MsgBox iim1.iimGetLastMessage()
  19.    End If
  20. Next
  21.  
  22. iret = iim1.iimDisplay("Done!")
  23. iret = iim1.iimExit
  24.  
  25.  
  26.  
  27.